function [err] =  calerr(Ypr,Yor)
err = sum((Ypr~=Yor))/size(Yor,1);
end